﻿Namespace QuanLyKhachHang
    Public Class ThongKeSanLuongBLL
        Public Function ThongKeSanLuong_LoaiSanPham(ByVal TrangThai As String, ByVal TuNgay As Integer, ByVal DenNgay As Integer, ByVal KhachHangId As Integer, ByVal MaTinhThanh As Integer) As List(Of LoaiSanPham)
            Try
                Dim doit As New ThongKeSanLuongDAL
                Return doit.ThongKeSanLuong_LoaiSanPham(TrangThai, TuNgay, DenNgay, KhachHangId, MaTinhThanh)
            Catch ex As Exception
                Throw ex
            End Try
        End Function
        Public Function ThongKeSanLuong_SanPham(ByVal TrangThai As String, ByVal TuNgay As Integer, ByVal DenNgay As Integer, ByVal IDLoai As Integer, ByVal KhachHangId As Integer, ByVal MaTinhThanh As Integer) As List(Of SanPham)
            Try
                Dim doit As New ThongKeSanLuongDAL
                Return doit.ThongKeSanLuong_SanPham(TrangThai, TuNgay, DenNgay, IDLoai, KhachHangId, MaTinhThanh)
            Catch ex As Exception
                Throw ex
            End Try
        End Function
        Public Function ThongKeSanLuong_TieuThu(ByVal TrangThai As String, ByVal TuNgay As Integer, ByVal DenNgay As Integer, ByVal IDSanPham As Integer, ByVal KhachHangId As Integer, ByVal MaTinhThanh As Integer) As Single
            Try
                Dim doit As New ThongKeSanLuongDAL
                Return doit.ThongKeSanLuong_TieuThu(TrangThai, TuNgay, DenNgay, IDSanPham, KhachHangId, MaTinhThanh)
            Catch ex As Exception

            End Try
        End Function
    End Class
End Namespace
